Préparation du jeu de données

On loade la matrice de reads par échantillon et par gènes obtenue par htseq-count. On supprime les dernières lignes qui correspondent aux reads non identifiés comme des gènes ou comme ambigus.

data = read.table("quantif_all_unstranded.txt", h = F)
colnames(data) <- c("Gene", "WT.K1", "WT.K2", "WT.N1", "WT.N2", "WT.K3", "WT.N3")
rownames(data) = data$Gene
data = dplyr::select(data, -c("Gene"))
genes = which(!(grepl("__", rownames(data))))
data = data[genes, ]
data = data[, sort(colnames(data))]
kable(head(data))

On rensigne le design et le type d’échantillons.

design = data.frame(row.names = colnames(data), condition = c("untreated", "untreated", 
    "untreated", "treated", "treated", "treated"), libType = rep("single-end", 
    6))
kable(design)

cds = newCountDataSet(data, design$condition)

Normalisation

D’après les 2 papiers de review lus (et détails techniques sur https://hbctraining.github.io/DGE_workshop/lessons/02_DGE_count_normalization.html) :

• RPKM non adaptés pour la DE : Permettent la comparaison entre gènes d’un même échantillon en corrigeant la profondeur de séquençage et la taille des gènes, mais ne permet pas de comparer des échantillons différents. (La somme des counts normalisés en RPKM ne sera pas la même pour deux échantillons). De plus, on compare des gènes identiques uniquement, donc la taille n’est pas importante.

• DESeq : la médiane de ratios : On calcule un sizeFactor propre à chaque échantillon pour corriger la profondeur de séquençage. On divise chaque count par la moyenne géométrique des counts de son gène parmis tous les échantillons (Comme si on créait un nouvel échantillon de pseudo-référence. Les ratios dans un même échantillon devraient être similaires entre la plupart des gènes, qui sont en majorité non differentiellement exprimés). Le size factor d’un échantillon est la médiane de ces ratios pour tous les gènes. Pour normaliser, on divise tous les counts d’un échantillon par son sizeFactor. (On ne considère pas dans la médiane les gènes ayant une moyenne géométrique de 0)

• TMM :

à voir avec EdgeR.

cds = estimateSizeFactors(cds)

keep <- rowSums(counts(cds)) >= 10
cds <- cds[keep, ]

sizeFactors(cds)

    WT.K1     WT.K2     WT.K3     WT.N1     WT.N2     WT.N3 
0.5807179 1.4086346 0.4817462 1.3604623 1.2840339 1.5661509 

par(mfrow = c(1, 2))
heatmap(counts(cds)[sample(rownames(counts(cds, normalized = FALSE)), 500), 
    ], main = "Sans normalisation")

heatmap(counts(cds, normalized = TRUE)[sample(rownames(counts(cds, normalized = TRUE)), 
    500), ], main = "Avec normalisation")

Estimation de la variance

The variance seen between counts is the sum of two components: the sample-to-sample variation just mentioned, and the uncertaintyin measuring a concentration by counting reads. The latter, known as shot noise or Poisson noise, is the dominatingnoise source for lowly expressed genes. The former dominates for highly expressed genes. The sum of both, shot noiseand dispersion, is considered in the differential expression inference.Hence, the variancevof count values is modelled as \(v = s\mu + \alpha s^2\mu^2\),

where \(\mu\) is the expected normalized count value (estimated by the average normalized count value),\(s\) is the size factor for the sample under consideration, and \(\alpha\) is the dispersion value for the gene under consideration.

cds = estimateDispersions(cds)
DESeq::plotDispEsts(cds)

# Analyse d’expression différentielle

On continue maintenant avec DESeq2, qui utilise le même test statistique que DESeq mais avec des améliorations pour les estimations et le GLM. Test : maintenant que les variances ont été estimées, il devient facile de comparer les conditions avec un test, rbinom.

A decrire mieux et parler des modèles, tout ça tout ça.

On construit le dataset, puis on enlève les lignes dont la somme des reads ne dépasse pas 10.

dds <- DESeq2::DESeqDataSetFromMatrix(countData = data, colData = design, design = ~condition)
keep <- rowSums(counts(dds)) >= 10
dds <- dds[keep, ]
dds$condition <- relevel(dds$condition, ref = "untreated")

dds <- DESeq2::DESeq(dds)
res <- results(dds)

resLFC <- lfcShrink(dds, coef = "condition_treated_vs_untreated", type = "apeglm")

resOrdered <- res[order(res$padj), ]
sum(res$padj < 0.05, na.rm = TRUE)

[1] 1362

DESeq2::plotMA(res, ylim = c(-5, 5))

DESeq2::plotMA(resLFC)

On a peu de gènes DE, seulement 48 avec un seuil à 5% de p-value, et 60 à 10%.

Visu du gènes le plus différentiellement exprimé :

d <- plotCounts(dds, gene = which.min(res$padj), intgroup = "condition", returnData = TRUE)

ggplot(d, aes(x = condition, y = count)) + geom_point(position = position_jitter(w = 0.1, 
    h = 0)) + scale_y_log10(breaks = c(25, 100, 400))

On essaie de voir ce qui pourrait être étrange dans les données pour avoir si peu de gènes :

hist(res$padj, breaks = 20)

hist(res$pvalue, breaks = 20)

hist(res$log2FoldChange, breaks = 20)

sum(res$log2FoldChange > 1, na.rm = TRUE)

[1] 968

En prenant une condition sur le log2FoldChange on a beaucoup plus de gènes DE. Affichage en heatmap des gènes les plus différentiellement exprimés.

par(mfrow = c(1, 2))
thr = 0.05
res = na.omit(res)
DEgenes = rownames(res[abs(res$log2FoldChange) > 1, ])
mat = counts(dds, normalized = TRUE)[DEgenes, ]
heatmap(mat, main = "abs(Log2FoldChange) > 1 ")

DEgenes = rownames(res[res$padj < thr, ])
mat = counts(dds, normalized = TRUE)[DEgenes, ]
heatmap(mat, main = "Significatifs")

DEgenes_pval = rownames(res[res$padj < thr, ])
DEgenes_lfc = rownames(res[abs(res$log2FoldChange) > 1, ])
DEgenes = intersect(DEgenes_pval, DEgenes_lfc)
mat = counts(dds, normalized = TRUE)[DEgenes, ]
heatmap(mat, main = "Juste les significatifs uprégulés")

On s’intéresse maintenant à la liste de gènes sélectionnés et à leur ontologie.

mart = useMart(biomart = "plants_mart", host = "plants.ensembl.org", dataset = "athaliana_eg_gene")
results <- getBM(filters = "ensembl_transcript_id", attributes = c("ensembl_transcript_id", 
    "description", "external_gene_name"), values = DEgenes, mart = mart)
rownames(results) = results$ensembl_transcript_id
r = results[DEgenes, ]
kable(r, caption = "Genes DE et leur GO")

library(stringi)
DEGenesNames = stri_remove_empty(r$external_gene_name, na_empty = FALSE)
save(file = "DEGenesDESeqAll.RData", DEGenesNames)

library(data.table)
kable(r[r$description %like% "Calcium" | r$description %like% "calcium", ])

kable(r[r$external_gene_name %like% "NRT", ])

kable(r[r$external_gene_name %like% "NLP", ])

kable(r[r$external_gene_name %like% "NI", ])

kable(r[r$description %like% "Cytokinin", ])